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SourceTools ready for field test 


SourceTools is designed to manage program development 
in situations where a wide range of products requires numer¬ 
ous source files, where programmers are engaged in cross- 
system software development, or where several program¬ 
mers may be working on the same program modules. 

Field test will be conducted on the RSX and VMS (compati¬ 
bility mode) operating systems. Our field-test price for 
Q ourceTools will be $2,700 — at least 25% lower than the 
^pd-user price. Make-up of the end-user product, and its 
release date, depends upon field-test results. 

We developed SourceTools originally for our own inter¬ 
nal use, to manage cross-development projects and update 
multi-version software, such as our Pascal-2 compilers and 
cross-compilers for various machines and operating sys¬ 
tems. Extensive in-house use has convinced us that these 
tools can benefit other software shops. 

Features 

Added Control* When more than one person must obtain 
copies of a file or alter a program, SourceTools prevents in¬ 
dependent authors from making simultaneous and conflict¬ 
ing changes. 

A Useftil History of Changes* For each change made 
to a source file under its control, SourceTools records who 
had it, what changes were made, and why. 

Economy of Space* SourceTools stores only the original 
^ rsion of a file and the differences between the source and 
^Kfch successive version, instead of storing each version as 
a whole copy. 

Economy of Time* During cross-development of software, 
sources are simultaneously maintained on both the host 
and the target systems. You can reduce transfer time by 
shipping only the differences between systems. 


that work together as a package. The first group, Source 
Control (SourceCon), consists of four programs for con¬ 
trolling the creation and modification of source files. The 
individual programs provide these services: 

• NewSrc creates a new module from a starting file, 
establishing control information and a “checksum” to 
ensure validity of updates or changes. 

• GotSrc provides a user with a version of the source 
file that can be used or modified. When a source file 
is checked out for modification, GetSrc denies subse¬ 
quent requests to modify the source, providing copies 
only, until the file is returned (see UpdSrc). By default, 
GetSrc retrieves the most current version, but any 
earlier version can be specified. 

• • UpdSrc re-installs as the current source an edited ver¬ 

sion of a copy that was checked out with GetSrc. 
UpdSrc records controlling information about the up¬ 
date (see PrtSrc), and automatically determines the 
differences between the current version and the file 
that was checked out originally. 

• PrtSrc prints the stored information about the differ¬ 
ences between any two versions of a module, including 
the name of the author, the time of the change, the 
author’s written description of the changes, and the 
sequence of editing commands needed for conversion 
to a later version. 

Using SourceCon programs, you can access all versions, 
and you can trace the history of all changes. 

Continued on Page 2 


In this issue.. 


Efficiency and Accuracy In Re-Creating Software* 

One SourceTools program mechanizes the re-creation of 
software from its component modules and codifies the pro¬ 
cess of updating files. This assures developers that modules 
are never forgotten, that out-of-date modules are never 
accidentally incorporated, and that commands are never 
executed unless they are necessary. Executing a mi ni m um 
number of commands is more efficient than using command 
files. 
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Sourceflbols Continued from Page 1 

The second group contains the two programs, TextCom 
and SEdit. TextCom can generate a script file for paral¬ 
lel source maintenance on different processors. Using the 
same efficient algorithm used in the SourceCon programs, 
TextCom compares two files and lists the differences bet¬ 
ween them. A command-line switch creates an editor script 
as output for use by a “stream editor” program called 
SEdit. As a file is read in, SEdit applies the editing com¬ 
mands contained in the script file to a designated file.. In 
the cross-development environment, these two programs 
work together to minimize host-to-tar get transfer time. 
When transferring code from the host development system 
to the target system, you only ship a short editor script 
file between systems instead of transferring complete, often 
lengthy, source files. 

"^extCorn may, of course, be used for any operation that 
fcvolves text comparison; its use is not restricted to cross- 
development or generation of editor scripts. TextCom can 
make better comparisons between files with numerous dif¬ 
ferences than Digital Equipment’s comparison program, 
DIFFERENCES. 

The third component is a single program called Make, 
which automatically keeps files up to date as components 
are changed. The user supplies a description file containing 
the names of files that depend on others and the commands 
for rebuilding any given file. Make examines the dates of 
all related files, redoing any out-of-date file, according to 
the directions in the description file. The Make program 
executes the fewest number of commands needed to update 
the modules used in a given file. 

Persons interested in becoming SourceTools field-test users 
should contact Pat Rau at Oregon Software for licensing 
details. 


Field test policy 

Oregon Software will be offering its new products to field- 
test sites for at least a 25%discount off the anticipated end- 
user price. In exchange for that, we are looking for users 
who have a thorough knowledge of the hardware/software 
system on which these programs are implemented and who 
can evaluate the performance of the new software and 
suggest ways it may be improved. 

Field-test users trade off the hassles of testing software 
against the benefits of having the product early, getting it 
at a reduced price, and helping to determine the nature of 
the final product. 

Test-site programmers must be able to cope with “untested” 
software, to reduce problems to simple examples of one 
page, and to resolve problems over the phone. Field-test 
sites must be willing to use preliminary documentation. 

Field-test sites will receive the end-user release automati¬ 
cally. The granting of a field-test license, however, does not 
guarantee that Oregon Software will release an end-user 
product. 


OPUS communique 

Oregon Pascal Users Society 


Starting with this issue of the newsletter, the newly formed 
Oregon Pascal Users Society (OPUS) will submit a column 
dedicated to the sharing of information between Oregon 
Software and its customers. OPUS is not affiliated with 
Oregon Software, though Oregon Software is encouraging 
the group’s formation. Membership is free, so join now! 
Here’s the address: 

Oregon Pascal Users Society (OPUS) 

Bruce Williams 
c/o EOCOM 
15771 Redhill Ave. 

Tustin, California 92680 
(714) 730-5051, ext. 302 

The need for a society for Oregon Software Pascal users 
has been evident for a few years. OPUS is an independent 
organization whose goals are: 

1. To share experience in methodology of software en¬ 
gineering, software quality assurance, and/or details 
of implementation using Oregon Software’s Pascal com¬ 
pilers as well as other languages that interface to the 
Oregon Software Pascal compilers; 

2. To disseminate this information through available, ex¬ 
pedient and economical channels; 

3. Thereby providing a communications channel through 
which Oregon Software, members of OPUS, and mem¬ 
bers of external organizations can communicate ap¬ 
proaches, techniques, problems, tricks and standards 
that may speed project development involving Oregon 
Software’s Pascal compilers. 

OPUS is being formed by a company in southern California 
and membership requests have come from as far away as 
Tasmania. What does it take to become a member? A 
postcard, letter or phone call. 

So far, OPUS has helped users of Oregon Pascal (versions 
1.1, 1.2, 2.0 for RT, RSX, RSTS/E) to achieve things as 
simple as character I/O using RT-11 V2.0 and as com¬ 
plex as AST and event-flag-control led routines through 
FORTRAN-called procedures under RSX. If you don’t have 
the NIH (“not invented here”) problem, if you think you 
have something to share or a need someone may have 
already met, then call or drop a note to OPUS. That 
will automatically make you a member. 

Future communiques will describe what OPUS members 
have been working on and report their successes/failures 
in reaching their goals. 
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Information exchange 

If you need information on technical applications involving 
Pascal, or if you have an application that might interest 
other users, send us a brief description for inclusion in the 
Information Exchange. Your description should follow the 
format of the items below. Interested parties can contact 
one another directly. 

MEASURE, a utility program for use with Pascal-2 un¬ 
der the RT-11 operating system, measures execution time 
of procedures, functions, and statements, producing a pro¬ 
file of the program in terms of the time spent in execution. 
E. J. Sauter, Processing Concepts Limited, 2909 North 
Sheridan Road, Chicago IL 60657, (312) 883-1444. 


fetters 

To the Editor: 

Occasionally one reads something which compels one to 
write a letter of clarification. Such an item is your state¬ 
ment (on page one of the August 1982 issue) that you are 
releasing the MC68000 OEM cross-compiler now because 
that processor “does not yet have a good development en¬ 
vironment.” Your readers should be aware that this state¬ 
ment is factually incorrect. 

Despite its potential difficulties as an end-user environ¬ 
ment, UNIX is widely acknowledged as a superior develop¬ 
ment environment. Unisoft of Berkeley has implemented 
a full native-mode UNIX on the MC68000, with the stan¬ 
dard tools from Bell Labs’ V7 UNIX as well as most of the 
University of Berkeley enhancements. 

The Unisoft UNIX is available now with the Dual Systems 
^Control Corporation (also in Berkeley) System 83, an IEEE- 
^^)6 standard (S-100) MC68000 system. Unisoft UNIX is 
also apparently available for the Sun Workstation and the 
WICAT, both MC68000-based small systems, and is avail¬ 
able to OEMs for inclusion in OEM packages. There are 
other UNIX versions for the 68000 as well, but I am most 
familiar with this particular one. 

There is at least one “good development environment” for 
the MC68000. 

Ian F. Darwin 
Software Supervisor 
Communications and Small Systems 
University of Toronto Computing Systems 
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Pascal Programmers sought by Fortune 500 company 
with a central data center and large on-line systems. The 
company is dedicated to using Pascal as a second language; 
assembler is now the primary language. Write: Information 
Industries, Inc., 1500 Charter Bank Center, Kansas City 
MO 64108, Attention: Larry McWilliams. 

Software training specialist needed to conduct training 
classes for customers and employees. Subjects: program¬ 
ming in Pascal language, writing process-control programs, 
use of RT-11 operating system and utilities, supporting 
software for ESI laser-processing systems. Contact: Harve 
Howard, Electro Scientific Industries, Inc., 13900 NW Science 
Park Drive, Portland OR 97229, (503) 641-4141. 


Editor’s Reply: 

In general, we agree with you that a genuine UNIX sys¬ 
tem would be a good development environment for the 
MC68000. The problem is finding one. 

Eighteen months ago, when we began our MC68000 project, 
our statement was definitely true: no good 68000-based 
UNIX system existed. So we used the mature RSX-11 sys¬ 
tem to develop the cross-compiler. That remains a fine 
choice for PDP-based users. 

Today, a bewildering array of MC68000-based “UNIX” 
systems is being promoted. These are similar to UNIX, or 
based on it, but not identical. Worse, many of them aren’t 
really available yet. We are still monitoring the situation, 
looking for a UNIX system to use ourselves. 

We are aware of Unisoft’s UNIX. We did not use that sys¬ 
tem because it is available for a limited set of configurations, 
which does not include the EXORmacs. Also, running it 
requires a great deal of disk space. The system is good, 
as you say, but of limited availability. 

We intend to support a UNIX system soon, but not until we 
see which of the many contenders becomes the established 
MC68000 development system. 


Editor’s Note: 

We want to keep our mailing list for the newsletter current. 
So, please, when you move, let us know where to send your 
newsletter or ask us to cancel your subscription. To request 
additional copies or give us the name of a new recipient, 
contact the editor. Thanks. 
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Pascal programs as RT-11 system jobs 


Mr. Sauter is with Processing Concepts Ltd., 
2909 North Sheridan Road, Chicago, Illinois, 
where he is engaged in systems development 
using Pascal. His current project is a Relational 
Data Base Management System (RDBMS) us¬ 
ing Pascal as the host language. 


Although RT-11 Version 4 is nicknamed “Mini-Tasker”, 
it has only one SYSGEN option, QUEUE, to support sys¬ 
tem jobs, and Digital Equipment Corporation does not 
recommend the use of other available job slots. For those 
who are tempted, as we are, to create system jobs, the 
XM monitor has two important features: virtual overlays 
^ virtual jobs. Assuming you are familiar with the tech- 
iS^fles for creating overlaid programs (both virtual and 
disk-based) explained in the Pascal-2 Programmer's Guide , 
Version 2.0 for RT-11, this article explains how we mini¬ 
mized the low-memory static window size to allow several 
Pascal programs to be run as system jobs. 

First, remember that when a Pascal-2 program is first 
executed, the initialization code performs at least these 
steps: 

1. Test for proper compiler version number; 

2. Allocation of stack and heap, using the 
monitor’s . SETTOP request; 

3. Initialization of file channelareas. 

Under all monitors, . SETTOP specifies a new program high 
address from the monitor, and Pascal-2 uses this new space 
for the stack and the heap. The stack is used to store lo¬ 
cal variables and return addresses, and to pass parameters 
M procedures and functions. The stack starts at the ad- 
Wss specified in the .SETTOP instruction and expands 
downward. The heap begins just after the program image 
and grows upward toward the stack. The heap is allo¬ 
cated dynamically with Pascal’s predefined procedure new. 
Memory is returned to the heap when files are closed or 
when the predefined procedure dispose is used to deallo¬ 
cate variables allocated via new. 

In the XM monitor, .SETTOP operates differently than it 
does in the SJ and FB monitors, in that enabling the 
special . SETTOP requires two actions: linking with the /XM 
switch and making the job virtual. Thus, . SETTOP allocates 
memory (hence the stack and the heap) from extended 
memory. Pascal-2 allocates this space with the instruction 

.SETTOP #-2 

With XM executing the virtual job, the Pascal program 
has 32K words of address space. 


With the stack and heap in extended memory, it would 
be useful to put the whole Pascal program there also. All 
virtual programs require a static region that must reside 
in low memory, to hold the root and low memory overlays. 
However, in order to minimize the amount of low memory 
required, overlays aren’t used and the root is made as small 
as possible. Instead, create a module with a new transfer 
address that will reside in low memory but only consists 
of a jump to the Pascal-2 entry point. This assembly-code 
module consists of: 

.GLOBL $START 
XM3T:: JHP $START 

.END 

To link the program with the module, use the following 
instructions: 

LTNK/XM/EXE:PRQG/PROMPT/C 
♦ /TRANSFER XMST.VIRJOB.PASCAL 

♦ PEQG/V:1// 

Transfer address? XMST 

This method puts much of the code into extended memory. 
Due to the way the Linker loads library code, the root 
still contains the initialization code and most of the other 
library support routines and its size remains 2600 words. 
For this technique to be successful, the reference to the 
library routines must be forced into the overlay region. 
Again, you use the assembly code routine: 

.GLOBL XMST 

XMST1:: JMP XMST 

.END 

and link the program with these commands: 

.LINK/XM/EXE:PROG/PROMPT/C 
♦ /TRANSFER XMST1.VIRJOB.PASCAL 
♦ XMST.PROG/V:1// 

Transfer address? XMST 

This puts all but the overlay handler with its table and 
the JMP XMST instruction into virtual overlay region 1. The 
size of the root has been reduced to less than 400 words, 
as you can see using the SHOV JOBS command. 

Creating Pascal system jobs in this manner carries a couple 
of restrictions: 

• The addition of any more segments and/or regions will 
put Pascal-2 initializaton code and I/O support back 
into the root. The program then needs a minimum 
of 2400 words of low memory and must be linked 
differently. 

• The allocation of 32K words of memory by the Pascal-2 
support library . SETTOP #-2 instruction restricts the 
number of jobs you can run. For example, on a 192K- 
byte system, memory can only hold three jobs (with 
the queue running) before there is insufficient memory. 
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• When the virtual high limit of these programs lies 
within 28K to 32K words of memory (page 7), the 
job fails during initialization at the call to .SETTOP. 
Although such cases are rare, these failures are caused 
by the manner in which .SETTOP allocates memory 
above the user program upon initialization. 


Although DEC insists that RT is a single-user system, un¬ 
der certain circumstances we have found that it can al¬ 
most look like a multi-user system. In this case, we have 
been able to run data entry applications and large com¬ 
pute-bound jobs that call . TWAIT, allowing background 
programs time to run also. We intend to use this approach 
for multiterminal applications in the near future. 


Reselling room for RT-llb VSR 


Mr. Siemens is with Omnex Coporation, 801 
East Charleston Rd., Palo Alto, CA. Omnex 
uses Pascal to develop system utilities and end- 
user applications. One such application is a 
local system network providing a disk server 
to a number of remote RT-11 systems. 


*fhis article describes NEWSTART, a small initialization 
routine that reserves enough space for the User Service 
Routine (USR) to remain resident in an RT-11 system 
with the single job (SJ) monitor. By eliminating the USR 
swapping that occurs when a file reset or rewrite is 
performed, this routine speeds up the file opening process. 

Under RT-11, programs compiled with either Pascal-1 or 
Pascal-2 are normally linked with a starting address at 
global symbol $START. At this address, the initialization 
code allocates the stack to be used by the program. The 
default stack is placed at the top of memory (a . SETTOP for 
all of memory is performed) unless the user has specified a 
stack address with the linker options /STACK (CCL syntax) 
or /M (CSI syntax). Actually, these options simply load a 
value that indicates the initial setting of the stack pointer 
into location 42 of the program. If the initialization code 
at $START finds that location 42 is greater than the high 


program limit, then it will use the value in location 42. 
Otherwise, it will ask for all of memory. 

The NEWSTART routine first tests to see which operating 
system is being used. If it is TSX-Plus or a non-privileged 
virtual job under the XM monitor, then control is im¬ 
mediately transferred to the regular start location, OSTART. 
If it is RT-11 SJ and SET USR SWAP is in effect (allowing 
the USR to swap), then location 42 is set with the normal 
USR load address. The routine at $START will then allocate 
the stack below the USR. 

The initialization routine is simply linked with the program 
and a specific transfer address to global symbol NEWSTA 
specified. For example, assume the routine exists in the 
object file NEWSTR.OBJ, which contains global symbol 
NEWSTA where the program should start. The following 
commands link a program with NEWSTR: 

LINK/TRANSFER PROG.NE1WSTR.SY:PASCAL 

Transfer symbol? NEWSTA 

As a demonstration, the following short Pascal-2 program 
opens an output file 10 times and measures the elapsed 
time required. The table below the program shows the 
measured execution times for this program with and with¬ 
out NEWSTR on three different operating systems. 


program Stest; 
var 

I: integer; 

F: text; 

Tl, T2: real; 
begin 

Tl := time; 

For I := 1 to 10 do 
begin 

rewrite(F f 't-trap'); requires use of USR 

close(F); 

end; 

T2 := time; 

writelnC'Elapsed time*, 3600.0(12 - Tl): 6: 2, ■ seconds'); 
end. 

Measured Execution Times in Seconds 


Operating System 

TSX-Plus 

RT-11SJ 

RT-11FB background 


with NEWSTR 
1.39 
1.00 
1.00 


without NEWSTR 

1.39 

8.85 

9.63 
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RT-ll USR Continued from Page 5 

The source code for the new initialization routine follows. 
Note that it does not occupy any extra space in the save 
image file because it resides in psect RTSDAT (an overlaid 
psect). After NEWSTA has run, the code at $START loads 
data over it. 


.TITLE NewStart lor pascal programs 
.Enable lc 


Module: 
File: 

Last Chug: 
Purpose: 


NewStart 

NEWSTR.MAC 
NEVSTR.OBJ 


(Source) 

(Object) 


18-Aug-82 9:16 AM 

This module starts Pascal-1 and Pascal-2 programs 
in such a way as to leave room in high memory for 
the USR. This will keep USR swapping from occurring 
when files are opened without forcing the user to do 
an explicit SET USR NOSWAP. 


Vhen linked such that the symbol NEWSTA is the transfer address, 
this routine makes sure that sufficient space is left in high memory 
for the USR to remain resident. This space is reserved only 
if the USR is not already available. 

.PSECT RTSDAT, RI. I. GBL, REL, QVR 


This psect contains data necessary for the RT-ll interface. 

It is an overlaid psect, and since it contains no valid data until 
initialized, we can use the space for this one time only 
initialization code. 


.GLDBL $START,RtArea 
.MCall .GVal, .Serr. .Herr 


FrstStk = 42 

Jsw = 44 

VirJob = 20000 

UsrLdAdd = 266 

Config = 300 

UsrLkd = 1000 


;contains initial top of stack 
;job status word 
;virtual job bit in jsw 
;offset for USR load addreBS 
;offset for configuration word 
;USR locked indicator bit 
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NewStart:: 


. Serr 


Mov 

#TsxGln,R0 

Emt 

375 

Bcc 

1$ 


Bit 

#VirJob,6#Jsw 

Bno 

1$ 

Cmp 

#1000,Q#FrstStk 

Bno 

1$ 

. GVal 

#RtArea,#Coufig 

Bit 

#UsrLkd,R0 

Bno 

1$ 

.GVal 

#RtArea,#UsrLdAdd 

Dec 

R0 

Dec 

R0 

Mov 

R0,0#FrstStk 

1$: .Herr 


Jmp 

$START 

TsxGln: .Byte 

0,110 


.End 



Reducing a Pascal-2 
program s task image size 

Users who are running out of disk space (who isn’t?) can 
use an obscure Task Builder option to reduce the size of 
their Pascal-2 task image files. The room saved depends on 
the size of the global data area in the program. Consider 
the following short program: 

program Test; 


var I: integer; 

A: array [1..20,000] of integer; 
begin 

for I:=l to 20,000 do 
A[I] : =1; 
end. 

After this program is compiled, it can be linked in the 
usual manner, using the command: 

>TKB TEST/FP/CP,TEST=TEST,LB:[1,1]PASLIB/LB 

The size of the task image is 92 blocks. The image is so 
large because the array A allocates 20,000 words of storage 
in the global data area, represented by the program section 
called GLOBAL. However, Pascal does not initialize this data 
area. This means that the data area need not be present 
in the task image. To get rid of the allocation for the 
psect GLOBAL, create the following overlay description 
file (TEST.ODL). 


;soft errors desired 

;try to get TSX-Plus line number 
;it worked, don't need to reserve 
; any room for USR with TSX 

.check for virtual job under XM 
;it is, USR is available under XM 

;check for initial stack = 1000 
;branch if it is 

;check for USR locked 
;branch if it is 
;gct USR load address 


;set initial stack 

;enable hard errors again 

;go to normal run-time initialization 

.code for get line number 


.NAME PASDAT.N0DSK 
.PSECT GLOBAL.D.GBL.0VR 

.ROOT TEST-LB:[1.1]PASLIB/LB.PASDAT-GL0BAL 
.END 

The .NAME directive gives a name to a segment (called 
PASDAT here) and assigns the N0DSK attribute to that seg¬ 
ment. This means that the Task Builder will not allocate 
disk space for this segment. The .PSECT directive defines 
the program section GLOBAL in which Pascal will allocate 
all of the global level variables. The psect is named here 
so we can force it into the PASDAT segment. This is done 
by creating a co-tree in the .ROOT directive. The effect is 
that no disk space will be allocated for the co-tree called 
PASDAT. This causes no problems for the program, because 
all of the data in the section GLOBAL is initialized at run¬ 
time. 

Use the /MP switch to tell the Task Builder to use the 
overlay description in the file TEST.ODL and build the 
task as shown below: 

>TKB TEST/FP/CP.TEST=TEST/MP 

Now the size of the task image file is 14 blocks. This is 
a considerable savings in disk space! This technique does 
not save any memory. In fact, the task grew by about 
100 words by the addition of the co-tree. This trick works 
because the Pascal data area does not need to be read in 
from the disk to be initialized. The task loader allocates 
the space automatically when the task is activated. 












Using literal strings in structured constants 

„. , • TT U/N. .Anniva oKcnlllt.plv TT 


As some users have noticed, Pascal-2’s output files contain 
duplicate entries of literal strings that are contained within 
structured constants. This is due to the compiler s multi¬ 
pass design. On the first pass, all strings are placed in the 
output file. During the second pass the structured constant 
is processed and the entire constant value is placed in the 
output file, including a copy of any literal strings. 

Example It Regular Use of Structured Constants 

Input code in program: 
type 

Rec = record 

Txt: packed array [1..12] of char; 

Len: 0..12; 

J end; 

{$nostandard! 
const 

Duplication = Rec('duplicate 1 . 9); 

<$standard! 
begin 
end. 

Output code in the CONST psect: 

.psect consts,d,con,lcl 
$const: 

;'ud' 

; •ip 1 
; 'ci' 

; 1 ta' 


Users who require absolutely minimal-size programs, e.g. 
for ROM applications, may use this simple work-around. 
Instead of defining the strings as strings, drop down one 
level of structuring and define the individual characters 
of the array as separate elements. This method requires 
longer input code but generates only one copy of literal 
strings, producing shorter executable code in the CONSTS 
psect, as the following two examples show. 

Example 2: The Work-around 


■u' 
1 c ' 




.word 72544 
.word 66160 
.word 61551 
.word 72141 
.word 20145 
.word 20040 
.word 72544 
.word 66160 
.word 61551 
.word 72141 
.word 20145 


—literal string 


;txt = 


ud 

IP 

ci 

ta 

e 


—structured const 


Input code in program: 
type 

Rec = record 

Txt: packed array [1..12] of char, 

Len: 0..12; 
end; 

{$nostandard! 
const 

NOduplication = RecCC'n 1 , 'o', 'd', 

■p ! , '1', 'i', 

'a', 't'. 'e*. 

ID; 

{Note the additional parentheses needed 
to indicate a lower level of structuring.! 

begin 

end. 

Output code in the CONSTS psect. 

.psect consts,d,con,lcl 
$const: 

.word 67556 ;'on' —structured const 
.word 72544 ;'ud' 

.word 66160 ;'lp* 

.word 61551 ;'ci' 

.word 72141 ;'ta' 

.word 20145 ;' e* 

.word 13 ;len = 11 



The Log is empty for this issue. We are still releasing 
version K of both Pascal-1 and Pascal-2 as our current 
product. If you have any problems with version J or before, 
and you are still in support, be sure to request your free 
update. We have not forgotten those of you who have 
submitted Trouble Reports for Version K. At this very 
moment,we are busily fixing bugs for Pascal-1 Version 1.3 
and Pascal-2 Version 2.1. 

In addition, we are adding a number of new features to 
Version 2.1, such as an improved interface to the Pascal 
support library, improved error reporting, and conformant 
arrays. # 


When the Support Group at Oregon Software gets severa 
calls about a particular problem, we do one of two things^ 
We fix bugs, announcing the fixes in the Log, and we publis 
articles in the newsletter, to clarify the use of Pascal-1 
or Pascal-2 under the various operating systems, or to 
offer work-arounds for specific users’ problems. Your let¬ 
ters help us to be aware of current problems facing users, 
to provide specialized information on the operating sys¬ 
tems we support, and to develop the support libraries for 
our products. So, if you don’t find information you need 
in the newsletter, write us. 

Editor’s note; The yearly support fee for Pascal-2 is $900; 
Pascal-1 support is C600 annually. 
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Bug contest begins 

Why let program bugs bring you nothing but grief? Enter 
Oregon Software’s Bug Contest and win a prize for the 
most interesting bug you’ve created while writing programs 
using our software. 

What do I enter? You can enter the contest in any or all 
of three categories: most interesting bug, most interesting 
application program, most interesting prize. 

We all know what a bug is. A mistake or oversight in 
program logic can be subtle and conditional, yielding unan¬ 
ticipated or undesired results. Such bugs are intellectually 
interesting as puzzles. What makes one of them more inter¬ 
esting than another? The bug really captivates us when it 
causes truly spectacular results, like turning all the traffic 
lights in the city red for an hour. 

Vn interesting application could be an innovative use of 
Pascal, some heretofore unrecognized characteristic of the 
language finding its place in an area of the real world 
where Pascal is not usually found. Or, a program could 
be interesting because of its unusual results, the job it ac¬ 
complishes. Or, the code of the program could be interest¬ 
ing in its own right, because the algorithm or its coding is 
so clever and elegant. We’ll accept all three types. 

Finally, the prize suggestions will be interesting because 
of the thought, not the expense. The best birthday gift 
is “right” because it fits the person better than anything 
that person would have asked for. We look for suggestions 
that are exquisite, appropriate, and attainable. Because the 
winner of each category gets one of the top three prizes, 
we hope your suggestions are not so unique that we can’t 
obtain them. 


How do I enter? You’ll notice that we’ve set up the 
entry blank in three parts: the top two for events and 
applications, and the bottom for prize suggestions. You 
^ may enter all three, and you may submit as many entries 
^as you like. Make as many photocopies of the entry form 
as you need. 


In the description of your bug and/or application, please 
include these bits of information: 


• We’d like to know the environment of your specimen. 
What conditions caused the bug to break out of its 
cocoon and take flight? 

• Where and when did you develop the application 
program? What problem did the program solve? 

• Were there any unusual aspects of your hunt for the 
bug or your development of the application program? 


Other bug catchers will be curious about the handling of 
such pests, so please tell us what you did to squash your 
bug, and what you think others could do to avoid such 
occurrences. 


And if I win? For those of you who don’t think the fun 
of entering is its own reward, we’ve that third category 
for suggested incentives. We plan to give the three most 
interesting prizes to each winner. The keeper of the most 
interesting bug will be awarded the most interesting prize 
suggestion. The second place prize suggestion will go to 
the submittor of the winning application program. The 
person who suggests that most interesting prize gets the 
third most interesting prize (after all, you don’t want to 
know what you’re getting, do you?). 

When is my entry due? All entrants and the winners 
will be announced in Newsletter #7 (June 1983). So, we 
need to have your entry by March 1, 1983. We already 
have several entries, so don’t delay. Send yours now! 


0 


2340 SW Canyon Road 
Portland, Oregon 97201 
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ENTRY BLANK 


Name - 

Company Name 


Site # 


Description of Entry* 



APPLICATION 



PRIZE 
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CONSUMER SURVEY 


This survey of Oregon Software’s customers and other interested parties will provide information for us to use in 
planning over the next year. We look forward to receiving your answers promptly. To encourage participation, we are 
offering a $100 discount off any of our products or services to everyone who returns a completed survey. To receive 
the $100 coupon, fill in your name and address on the final survey question. To use the coupon, simply include it 
with any order and subtract the $100 from the amount you owe us. The coupon expires May 30, 1983. 

After completing the questionnaire, please follow the mailing directions below. 


Mailing Directions 

Domestic: Tear off the questionnaire section and fold it so that the BUSINESS REPLY MAIL permit faces out. 
Secure the open edge with staple or tape, then mail. 

International: Please enclose the questionnaire pages in an envelope and return them to your distributor. If you 
do not have a distributor, return the questionnaire directly to us. (Unfortunately, we cannot supply prepaid postage 
for overseas respondents.) 


Thank you in advance for your response. 


NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 

UNITED STATES 


BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO. A407 PORTLAND,OR. 


POSTAGE WILL BE PAID BY ADDRESSEE 

OREGON SOFTWARE INC. 
Attn: Marketing Survey 
2340 SW Canyon Road 
Portland OR 97201 
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1 . 


that Oregon Software products does your organization currently have? 


Pascal-1 

Pascal-2 

_ Sort-1 or Sort-l-Plus 

None 


2. On what processor/operating system is your Pascal compiler hosted? 


_ PDP-ll/RSX 

~ ~ VAX/VMS 

PDP-ll/RSX 

3. How important are 


_ PDP-il/RSTS 

PDP-ll/RT-11 or TSX 
Does Not Apply 

the following Pascal compiler features to you? 


a. Code Size 

b. Code Execution Speed 

c. Compiler Execution Speed 

d. Portability of Code 

e. Adherence to Pascal Std. 

f. Good Support 

g. Ease of Debugging 

h. Utilities Package 

i. Competitive Price 
Availability of Extensions 


Unimportant 
12 3 


k. Other (please specify). 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


3 

3 

3 

3 

3 

3 

3 

3 

3 

3 


Important 
4 5 N/A 

5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 


4. Do you use Oregon Software’s support services? 

_Yes _No _Does Not Apply 

If yes, how satisfied have you been with the support? 


Very Dissatisfied 

1 2 3 


Very Satisfied 
4 5 


If dissatisfied, or if you are no longer in support, erplam why. 
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5. How would you compare the cost of completing a programming project 
using Oregon Software's Pascal versus another approach? 

a. Far Below _Below _About the Same _Above 

_Far Above _Unable to Determine 

b. What would the other approach be?_ 

6. Does Oregon Software's Pascal-2 have any serious limitations or 
drawbacks? 

_Yes _No _Does Not Apply 

Please explain (use extra sheet if necessary)_ 


7. Please indicate the three most important reasons for choosing Oregon 
Software Pascal over another compiler or language. 

1. _(First Priority) 

2. _(Second Priority) 

3. _(Third Priority) 

8. What is the job title and function of the person most influential in 
deciding to acquire a compiler? 


9. a. What is the basic activity at your facility? 

Components/sub- assemb1ies 

_ Conputers/peripheral equipment 

_ Communications systems/equipment 

Aircraft/space/ground support equipment 

Test/measurement/instrumentation/process control equipment 
Other (please specify)_ 

b. What is the basic function performed at your facility? 

Research and development 

_ Hardware _ Software 

_ Manufacturing 

_ Service and support 

Other (please specify)_ 























c. Which, primary 


classification applies to your facility? 


Commercial 

Government agency (non-military) 

Military 
_ Education 

Other (please specify)-" 

10. What is the approximate size of the programming staff at your facility? 


Under 6 - 11 to 20 

5 to 10 - 21 to 30 


30 to 50 
More than 50 


b. How many of these programmers use Pascal regularly? 


11. Please indicate how important the following languages are to you 


a. 

FORTRAN 

Unimportant 
1 2 

1 9 

3 

3 

Important 

4 S N/A 
4 5 N/A 

b. 

BASIC 

1 

2 

3 

4 

5 

N/A 

c. 

Assembler 

1 

2 

3 

4 

5 

N/A 

d. 

Pascal 


2 

3 

4 

5 

N/A 

e. 

COEOL 

1 

2 

3 

4 

5 

N/A 

f. 

C 

1 

2 

3 

4 

5 

N/A 

S- 

ADA 

l 

2 

3 

4 

5 

N/A 

h. 

i. 

PL/1 

Other (specify) - 

1 

2 

3 

4 

5 

N/A 


12. What is your job title and function?- 

Did you have major influence on the decision to buy a compiler? 

_Yes - No 

13. Where did you first hear about Oregon Software? 

Friend or associate 
Trade show 

_ Professional association 
Distributor 


Magazine article 
Magazine ad 

(which magazine?- 

In school 

Other (specify)- 
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14. How important are the following sources for information on software? 


a. 

Vendor publications 

Unimportant 
12 3 

Important. 

4 5 N/A 

b. 

Distributors 

1 

2 

3 

4 

5 

N/A 

c. 

Sales representatives 

1 

2 

3 

4 

5 

N/A 

d. 

Magazines 

1 

2 

3 

4 

5 

N/A 

e. 

Trade shows 

1 

2 

3 

4 

5 

N/A 

f. 

Technical seminars 

1 

2 

3 

4 

5 

N/A 

S- 

Friends and associates 

1 

2 

3 

4 

5 

N/A 

h. 

Other (specify) 

1 

2 

3 

4 

5 

N/A 


15. What job-related publications do you read regularly? 


16. To receive coupon: 


Name_ 

Organization 
Street Address 


City, State 


Country, Postal Code 
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